home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
util
/
pack
/
xpk_Source.lha
/
xpk_Source
/
shell
/
xDir.c
< prev
next >
Wrap
C/C++ Source or Header
|
1998-11-09
|
5KB
|
216 lines
#define NAME "xDir"
#define DISTRIBUTION "(Freeware) "
#define REVISION "6"
/* Programmheader
Name: xDir
Author: SDI (before 1.2 Urban Dominik Müller)
Distribution: Freeware
Description: xpk file lister
Compileropts: -
Linkeropts: -l xpkmaster
1.0 : first public release
1.1 : Enforcer hit fixed, version string added, wrote documentation
1.2 29.11.96 : reworked for new includes
1.3 24.04.97 : fixed lots of errors, made a lot shorter, easier
1.4 12.07.97 : totally rewritten
1.5 27.97.97 : little fixes
1.6 10.03.98 : new ASM_STD includes, uses xfdmaster for checks always
*/
#include "SDI_defines.h"
#define SDI_TO_ANSI
#include "SDI_ASM_STD_protos.h"
#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/xpkmaster.h>
#include <exec/memory.h>
struct DataList {
struct DataList * next;
UWORD size; /* size of complete list */
UBYTE text[0]; /* text data, which follows the structure */
};
#define TEXTSIZE 40
struct Library *XpkBase = 0;
ULONG exitem(STRPTR, ULONG *, ULONG *);
ULONG exfile(struct FileInfoBlock *, struct DataList *, ULONG *, ULONG *);
void main(int argc, char *argv[])
{
ULONG ret = 20;
if(argc == 2 && argv[1][0] == '?')
{
printf("Usage: xDir files/dirs\n"); exit(10);
}
if((XpkBase = OpenLibrary(XPKNAME, 3)))
{
ULONG utot = 0, ctot = 0;
printf("Original Packed Ratio Type Protection Name\n"
"-------- -------- ----- ---- ---------- ----\n");
if(argc == 1)
ret = exitem("", &utot, &ctot);
else
{
ULONG i = 1;
while(i < argc && !(ret = exitem(argv[i], &utot, &ctot)))
{
if(++i < argc)
printf("\n");
}
}
if(!ret)
printf("-------- -------- -----\n%8ld %8ld %2ld%%\n", utot, ctot,
(utot && (utot > ctot)) ? 100 - (100 * ctot) / utot : 0);
}
else
printf("Cannot open xpkmaster.library\n");
if(CTRL_C)
printf(" *** Break\n");
exit(ret);
}
ULONG exitem(STRPTR name, ULONG *utot, ULONG *ctot)
{
BPTR lock;
ULONG ret = 20;
if((lock = Lock(name, ACCESS_READ)))
{
struct FileInfoBlock *fib;
if((fib = (struct FileInfoBlock *) AllocMem(sizeof(struct FileInfoBlock), MEMF_ANY)))
{
if(Examine(lock, fib))
{
struct DataList *list, *d, in = {0,0};
list = ∈
if(fib->fib_DirEntryType < 0)
{
BPTR prev;
name[strlen(name)-strlen(fib->fib_FileName)] = 0; /* cut the filename */
UnLock(lock);
if((lock = Lock(name, ACCESS_READ)))
{
prev = CurrentDir(lock);
ret = exfile(fib, list, utot, ctot);
CurrentDir(prev);
}
else
printf("Error locking %s\n", name);
}
else
{
BPTR prev;
prev = CurrentDir(lock);
while(ExNext(lock, fib) && !(ret = exfile(fib, list, utot, ctot)))
;
CurrentDir(prev);
}
list = list->next; /* skip init entry */
if(!ret)
{
for(d = list; !CTRL_C && d; d = d->next)
printf("%s", d->text);
}
while(list) /* free the list */
{
d = list->next;
FreeMem(list, list->size);
list = d;
}
}
else
printf("Error %ld locking %s\n", IoErr(), name);
FreeMem(fib, sizeof(struct FileInfoBlock));
}
else
printf("Not enough memory\n");
if(lock)
UnLock(lock);
}
else
printf("Error %ld locking %s\n", IoErr(), name);
return ret;
}
ULONG exfile(struct FileInfoBlock *fib, struct DataList *l, ULONG *utot, ULONG *ctot)
{
struct DataList *dl, *le;
ULONG listsize, fl;
struct XpkFib xfib;
ULONG i, clen = 0, ulen = 0;
fl = strlen(fib->fib_FileName);
listsize = sizeof(struct DataList) + fl + TEXTSIZE + 2; /* '\n' and '\0' */
if(!(dl = (struct DataList *) AllocMem(listsize, MEMF_ANY|MEMF_CLEAR)))
{
printf("Not enough memory\n"); return 20;
}
memset(dl->text, ' ', 40);
dl->size = listsize;
if(fib->fib_EntryType >= 0)
CopyMem("<Dir>", dl->text+3, 5);
else if(!XpkExamineTags(&xfib, XPK_InName, fib->fib_FileName,
XPK_UseXfdMaster, TRUE, TAG_DONE)
&& xfib.xf_Type == XPKTYPE_PACKED)
{
sprintf(dl->text, "%8ld %8ld %2ld%% %4s",
ulen = xfib.xf_ULen, clen = xfib.xf_CLen, xfib.xf_Ratio,
xfib.xf_Packer);
dl->text[28] = ' ';
}
else
{
sprintf(dl->text, "%8ld", clen = ulen = fib->fib_Size);
dl->text[8] = ' ';
}
dl->text[29] = fib->fib_DirEntryType < 0 ? '-' : 'D';
for(i = 0; i < 8; i++)
dl->text[37-i] = (fib->fib_Protection ^ 0x0f) & (1 << i) ? "dewrapsh"[i] : '-';
*utot += ulen;
*ctot += clen;
CopyMem(fib->fib_FileName, dl->text+40, fl);
dl->text[40+fl] = '\n';
/* sort and insert the new line, skip &in entry first */
do
{
le = l;
l = l->next;
} while(l && stricmp(l->text+40, dl->text+40) < 0);
dl->next = l;
le->next = dl;
return 0;
}